home *** CD-ROM | disk | FTP | other *** search
/ Macwelt 1 / Macwelt DVD 1.toast / Web-Publishing / HTML-Editoren / Alpha ƒ / Tcl / Modes / postscriptMode.tcl < prev    next >
Encoding:
Text File  |  2001-01-04  |  4.4 KB  |  88 lines
  1. #################################################################################
  2. # Postscript mode.
  3. # 
  4. # Only supports colouring at present.
  5. #
  6. #================================================================================
  7.  
  8. alpha::mode PS 0.2 source {*.ps *.PS *.eps *.epsf *.pdf *.PDF} {} {
  9. } help {
  10.     PS mode is useful for viewing the internal commands of both
  11.     PostScript (.ps) and Portable Document Format (.pdf) files.
  12.  
  13.     PS mode currently supports colouring of /commands and %comments.
  14.     This "PostScript Example.ps" link is a PostScript version of
  15.     the first four pages of the Getting Started With LaTeX manual.
  16. }
  17.  
  18. newPref v prefixString {% } PS
  19. set PSKeyWords {
  20. FontDirectory GlobalFontDirectory ISOLatin1Encoding
  21. StandardEncoding UserObjects VMerror abs add aload anchorsearch
  22. and arc arcn arct arcto array ashow astore atan awidthshow
  23. begin bind bitshift bytesavailable cachestatus ceiling charpath
  24. clear cleardictstack cleartomark clip clippath cliprestore
  25. clipsave closefile closepath colorimage composefont concat
  26. concatmatrix configurationerror copy copypage cos count
  27. countdictstack countexecstack counttomark cshow
  28. currentblackgeneration currentcacheparams currentcmykcolor
  29. currentcolor currentcolorrendering currentcolorscreen
  30. currentcolortransfer currentdash currentdevparams currentdict
  31. currentfile currentflat currentfont currentglobal currentgray
  32. currentgstate currenthalftone currentlinecap currentlinejoin
  33. currentlinewidth currentmatrix currentmiterlimit
  34. currentobjectformat currentoverprint currentpacking
  35. currentpagedevice currentpoint currentrgbcolor currentscreen
  36. currentsmoothness currentstrokeadjust currentsystemparams
  37. currenttransfer currentundercolorremoval currentuserparams
  38. curveto cuttenthsbcolor cvi cvlit cvn cvr cvrs cvs cvx def
  39. defaultmatrix definefont defineresource defineuserobject
  40. deletefile dict dictfull dictstack dictstackoverflow
  41. dictstackunderflow div dtransform dup echo end eoclip eofill eq
  42. erasepage error errordict exch exec execform execstack
  43. execstackoverflow executeonly executive exit exp false file
  44. filenameforall filesposition fill filter findcolorrendering
  45. findefont findencoding findresource flattenpath floor flush
  46. flushfile for forall gcheck ge get getinterval globaldict
  47. glyphshow grestore grestoreall gsave gt handleerror identmatrix
  48. idiv idtransform if ifelse image imagemask index ineofill
  49. infill initclip initgraphics initmatrix instroke interrupt
  50. inueofill inufill inustroke invalidaccess invalidexit
  51. invalidfileaccess invalidfont invalidrestore invertmatrix
  52. ioerror itransform known kshow languagelevel le length
  53. limitcheck lineto ln load log loop lt makefont makepattern
  54. matrix maxlength mod moveto mul ne neg newpath noaccess
  55. nocurrentpoint not null nulldevice or packedarray pathbbox
  56. pathforall pop print printobject product prompt pstack put
  57. putinterval quit rand rangecheck rcheck rcurveto read
  58. readhexstring readline readonly readstring realtime rectclip
  59. rectfill rectstroke renamefile repeat resetfile resourceforall
  60. resourcestatus restore reversepath revision rlineto rmoveto
  61. roll rootfont rotate round rrand run save scale scalefont
  62. search selectfont serialnumber setbbox setblackgeneration
  63. setcachedevice setcachedevice2 setcachelimit setcacheparams
  64. setcharwidth setcmykcolor setcolor setcolorrendering
  65. setcolorscreen setcolorspace setcolortransfer setdash
  66. setdevparams setfileposition setflat setfont setglobal setgray
  67. setgstate sethalftone sethsbcolor setjoin setlinecap
  68. setlinewidth setmatrix setmiterlimit setobjectformat
  69. setoverprint setpacking setpagedevice setpattern setrgbcolor
  70. setscreen setsmoothness setstrokeadjust setsystemparams
  71. settransfer setucacheparams setundercolorremoval setuserparams
  72. setvmthreshold shfill show showpage sin sqrt srand stack
  73. stackoverflow stackunderflow start startjob status statusdict
  74. stop stopped store string stringwidth stroke strokepath sub
  75. syntaxerror systemdict timeout token token transform translate
  76. true truncate type typecheck uappend ucache ucachestatus
  77. ueofill ufill undef undefined undefinedfilename
  78. undefinedresource undefinedresult undefinefont undefineresource
  79. undefineuserobject unmatchedmark unregistered upath userdict
  80. usertime ustroke ustrokepath version vmreclaim vmstatus wcheck
  81. where widthshow write writehexstring writeobject writestring
  82. xcheck xor xshow xyshow yshow
  83. }
  84. if {[info exists PSwords]} {set PSKeyWords [concat $PSKeyWords $PSwords]}
  85. regModeKeywords -e {%} -m {/}  -c red -k blue PS $PSKeyWords -i "\}" -i "\{" -i "\[" -i "\]" -I green
  86.  
  87.  
  88.